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Sir: 

I, David J. Bates, state and declare that: 

1 . lam the inventor of claims 1 -23 of U.S. Patent Application No. 10/763,832 
titled "TIME RECORDING AND MANAGEMENT SYSTEM" (hereinafter "the ' 832 
application"). 

2. Prior to the July 26, 2002, the filing date of U.S. Patent Application Serial No. 
10/205,204, 1 conceived and reduced to practice in the United States, the ideas set forth in the 
above-listed claims in the '832 application and described in the '832 application as evidenced 
by the attached Exhibit. 

3. The attached entire Exhibit (including the sheets labeled "FIG. 3", "FIG. 6", 
"FIG 8", "FIG. 9", "EXHIBIT E", "EXHIBIT F\ "EXHIBIT G", EXHIBIT B", EXHIBIT 
C" AND EXHIBIT D") is an exact copy of the redacted screenshots included in US 
provisional application serial number 60/442, 1 45, from which the present application claims 
priority. Each of the screenshots of the entire Exhibit was taken from a spreadsheet and 
associated macros, which were reduced to practice before July 26, 2002. The sheet labeled 
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"FIG. 3" indicates that the daily timesheet is for the fiscal year 2002, which in the particular 
circumstance ended on January 31, 2003. The sheet labeled "FIG. 8" further indicates 
reduction to practice and use of the illustrated spreadsheet and associated macros as early as 
February 2002. Note that time values were calculated for the entire month of February 2002. 
The sheet labeled "FIG. 9" further evidences use of the spreadsheet and macros as early as 
February 2002. The sheets labeled "EXHIBIT E", "EXHIBIT F", and "EXHIBIT G" (labels 
from the provisional application (60/442,145)) illustrate software code for the macros. This 
software code was used to generate the numerical values and other items shown in cells of the 
screen displays depicted in the above-described Figs. 3, 8 and 9. The sheets labeled 
"EXHIBIT B", "EXHIBIT C" and "EXHIBIT D" (labels from the provisional application 
(60/442,145)) illustrate formulas (including associated function calls and links) in the cells of 
the spreadsheet. These are the same formulas used to generate the numerical values and other 
items shown in the cells of the screen displays depicted in the above-described Figs. 3, 8 and 



I hereby declare that all statements made herein of my own knowledge are true 



and that all statements made on information and belief are believed to be true, and further that 
these statements are made with the knowledge that willful false statements and the like so 
made are punishable by fine or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may jeopardize the validity of the 
application or any patent issuing therefrom. 
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Sub JnscrtTimcO 
Macro 1 Macro 

Macro recorded 2/13/2001 by 

Keyboard Shortcut: Ctrl+x 

CurrRow = ActiveCell.Row 
CurrCol = ActiveCell.Column 
If CurrRow < 8 Then Exit Sub 
IfCurrCol = l Then 

Cells(10000, l).SeIect 

ActiveCell.End(xlUp).Select 

If ActiveCell.Value = Date Then 
TodayStarted = True 

MsgBox "Today has already been started. Nothing to do " 
Exit Sub 
Else 

TodayStarted - False 

Cells(ActiveCell.Row, 4).Select 

Do While CellsfActiveCell.Row -t 1, 4).Value > 0 

Cells(ActiveCell.Row + 1, 4).Select 
Loop 

Cells(ActiveCell.Row + 3, l).Select 
ActiveCell.Value = Date 
ActiveCell.Offset(0, l).Select 
CurrCol - 2 
End If 
End If 

Select Case CurrCol 
Case 2 

If ActiveCell.Value o And ActiveCell.Value o ActiveCell.OffsetM 1) Value And 
ActiveCell.Offset(-l, 1). Value o "" Then 

ActiveCell.Value - ActiveCell.Offset(-l, 1). Value 
Else 

ActiveCell.FormulaRlCl - "=NOW()-TRUNC(NOW())" 
Selcction.Copy 

Selection.PasteSpecial Paste:=xlVaIues, Operation :=xlNone, SkipBlanks:= 

False, Transpose—False 
ActiveCell.Offset(0, 1). Activate 

ActiveCell.Value = ActiveCell.Offset(0, -1). Value + 1/(10* 24) 
End If 
Case 3 

SystemHour = Hour(Time) 
SystcmMinute = Minute(Time) 

SystemTime = (SystemHour / 24) + (SystemMinute / (60 * 24)) 
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TimeDiff = Abs(SystemTime - ActiveCell.Offset(0, -1). Value) 
If TimeDiff < 1 /(60* 24) Then 

ActiveCell.Value - ActiveCcll.Value + 1 / (10 * 24) 
Else 

ActiveCell.FormulaRlCl = '-NOW()-TRUNC(NOW())" 
Selection. Copy 

Selection.PasteSpecial Paste:=xl Values, Operation:=xlNone, SkipBlanks:= 
False, Transpose-False 
End If 
Case 5, 6, 7, 8 

lfCells(CurrRow, 5) = "" And CeIls(CurrRow, 6) = "" And Cells(CurrRow, 7) = "" And 
CeIls(CurrRow, S) = "'* Then 

Range(Cells(CurrRow, 5), Cells(CurrRow, 7)). Value = Range(Cells(CurrRow - 1 5) 
Cells(CurrRow- l,7)).Value ' 

Else 

Cells( 10000, l).Select 
ActiveCell.End(xlUp).Select 
CurrDate = Date 

If ActiveCell.Value - CurrDate Then 

TodayStarted = True 
Else 

TodayStarted = False 
End If 

CellsfActiveCell.Row, 4).Select 

Do While Cells(ActiveCell.Row + 1, 4). Value > 0 

Cells(ActiveCeIl.Row + 1, 4).Select 
Loop 

If TodayStarted Then 

NewRow - ActiveCell.Row + I 

NewCol = 2 
Else 

NewRow - ActiveCell.Row + 3 
NewCol = 1 

Cells(NewRow, NewCol).Select 
ActiveCell.Value = Date 
ActivcCell.Offset(0, l).Select 
End If 

CellsfNewRow, 2).Select 

ActiveCell.FormulaRlCl = "=NOW()-TRUNC(NOW()) M 
Selcction.Copy 

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:- 

False, Transpose -False 
ActiveCell.Offset(0, 1 ). Activate 
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Selection.PasteSpecial Paste:=xlValues 
IfCurrCol = 8Then 

Range(Cells(NewRow, 5), Cells(NevvRow, 8)). Value = Range(Cells(CurrRow 5) 
Cells(CurrRow, 8)).Value 
Else 

Range(Cells(NewRow, 5), Cells(NewRow, 7)). Value = Range(Cells(CurrRow 5) 
Cells(CurrRovv, 7)). Value 
End If 
End If 
End Select 

Application.CutCopyMode = False 
End Sub 
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Public FormCancelled As Boolean 
Public ReportOption As Integer 
Public NextRow As Integer 

Sub TotalTimeQ 

1 Macro 1 Macro 

' Macro recorded 02/13/2002 by David Bates 

ReportOption = 0 
Load TimeUpdtRptGnrt 
TimeUpdtRptGnrt.Show 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 

If ReportOption = 0 Then Exit Sub 

Sheets("Daily Tirnesheet").Select 
CurrRow = ActiveCell.Row ' 
CurrCol = ActiveCell. Column 
NextRow = CurrRow 
Select Case ReportOption 
Case 0 

Exit Sub 
Case 1,2, 4 

NextRow = HandleOneDay(NcxtRow) 
Case 3 

NextRow = 10000 

Cells(NextRow, CurrCol). Select 

Do While NextRow > 8 
NextRow = HandleOneDay(NextRow) 

Loop 
End Select 

Cells(CurrRow, CurrCol).Select 
End Sub 

Function HandleOneDay(xRow) 
Sheets("Daily Timesheet").Select 
Cells(NextRow, l).Select 
If Cells(ActiveCell.Row, 1). Value = "" Then 

ActiveCell.End(xlUp).Select 
End If 

CurrDate = ActiveCell. Value 

UpperRow = ActiveCell.Row 

LowerRow = UpperRow 

Do While Cells(LowerRow + 1, 4).Value > 0 
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LowerRow = LowerRow + 1 
Loop 

NextRow = UpperRow - 2 

Range("B" + Forniat(UppcrRow) + ":" + "K" + Forniat(LowcrRow)).Select 
Selection.Sort Keyl :=Range("E" + Format(UpperRow)), Order 1 -xlAscending, 
Key2:=Range("F" + Format(UpperRow) _ 

), Ordcr2: -xlAsccnding, Header:=xlNo, OrderCustom:=l, MatchCase:=Falsc _ 

, Qrientation:=xlTopToBottom 

If Cells(l, 10). Value = "TAR" Then 

TARMethod = True 
Else 

TARMethod = False 
End If 

TotalHours = 0 
TotalBill = 0 
TotalNonBill = 0 
SubTotalHours = 0 
For x = UpperRow To LowerRow 
SubTotalHours = SubTotalHours + Cells(x, 4). Value 
If Cells(x, 7).Value - "N" Or Cellsfx, 7). Value = "n" Then 
NonBill = True 
Cells(x, 9).Value = "-" 
Cellsfx, 10). Value - Cells(x, 4). Value 
Else 
NonBill = False 

Cells(x, 9).Value = Cells(x, 4).Value 
Cells(x, 10). Value = "-" 
End If 

If Cells(x, 5).Value <> Cells(x + 1, 5). Value Or Cells(x, 6).Value <> Cells(x + 1, 6).Value Or 
Cellsfx, 7). Value <> Cells(x + 1 , 7).Value Or x = LowerRow Then 
If TARMethod Then 

SubTotalHours = Application. WorksheetFunction.Ceiling((SubTotalHours -1/60) 0 1) 
End If * 
If NonBill Then 

TotalNonBill = TotalNonBill + SubTotalHours 

Else 

TotalBill = TotalBill + SubTotalHours 
End If 

TotalHours = TotalHours + SubTotalHours 
If ReportOption - 2 Then 
Cells(x, ll).Value = "" 
Else 
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Cells(x, 11). Value - SubTotalHours 
End If 

SubTotalHours = 0 

If ReportOption <> 2 Then 

Range(Cells(x, 1), Cells(x, ll)).Select 

DrawBottomLine (True) 
End If 
Else 

Cells(x, 1 l).Value = 
End If 
Nextx 

IfReportOption = 2Then 

Range(Cells(LowerRow +1,9), Cells(LowerRow + 1, 1 1)) Font.Bold = False 

Cells(LowerRow + 1 , 9). Value = "" 

Cells(LowerRow + 1, 10). Value = "" 

Cells(LowerRow + 1, 11). Value = "" 
Else 

Range(Cells(LowerRow + 1, 9), Cells(LowerRow +1,1 l)).Font.Bold = True 
Cells(LowerRow + 1 , 9).Valuc = TotalBill 
Cells(LowerRow + 1, 10). Value = TotalNonBill 
Cells(LowerRow +1,1 1). Value = TotalHours 
End If 

Sheets("2002").Select 
Cells(4, 2).Select 
MatchingRow = 4 

Do While CeIls(MatchingRow, 2). Value <> CurrDate 
MatchingRow = MatchingRow + 1 
If MatchingRow > 400 Then 
MsgBox "Unable to update time because day match not found" + Chr(13) & Chr(10) + 
"Dates must be entered with four digit years, e.g., 1/1/2002" 
Exit Do 
End If 
Loop 

Cells(MatchingRow, 3).Value = TotalBill 
Cells(MatchingRow, 4). Value = TotalNonBill 

Sheets("Daily Timesheet").Select 

Range("A" + Format(UpperRow) + ":" + "K" + Format(LowerRow)).Select 
If ReportOption = 2 Then 
RemoveAllLines (True) 

Range("B" + Format(UpperRow) + ":" + "K" + Format(LowerRow)).Select 
Selection. Sort Keyl :=Range("B" + Format(UpperRow)), Order l™xl Ascending, 
Header:=xlNo, _ 

OrderCustom:=l, MatchCase:=False, Orientation:=xlTopToBottom 



XXXXXXXXX.XA 



3 



I ' 1 1 I , I 1 , ■ O 



Else 

DrawThickBorder (True) 
End If 

If ReportOption - 1 Then 
Dim printRange As String 

prinlRange = "A" + Format(UpperRow) + ":" + "K" + Format(LowerRow + 1) 
With Worksheets("Daily Timesheet") 
.PageSetup.PrintArea = printRange 
.Printout 
End With 
End If 

I landleOneDay = UpperRow - 2 
End Function 

Function DrawBottomLine(DrawBottom) 
With Selection. Borders(xlEdgeBottom) 

.LineStyle = xlContinuous 

.Weight = xlThin 

.Colorlndex = xlAutomatic 
End With 
End Function 

Function RemoveAllLines(RemoveLines) 
Selection.Bordeis(xlDiagonalDown).LineStyle = xlNonc 
Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
Selection. Borders(xlEdgeLeft). LineStyle = xlNone 
Selection. Borders(xlEdgeTop). LineStyle = xlNone 
Selection. Borders(xlEdgeBottom). LineStyle - xlNonc 
Seleetion.Borders(xlEdgeRight). LineStyle = xlNone 
Selection.Borders(xlInsideVertical).LineStyle = xlNone 
Selection.Borders(xlInsideHorizontaI).LineStyle = xlNone 
End Function 

Function DravvThickBorder(Border) 
With Selection.Borders(xlEdgeBottom) 

.LineStyle = xlContinuous 

.Weight = xlThick 

.Colorlndex = xlAutomatic 
End With 

With Selection. Borders(xlEdgeTop) 

.LineStyle = xlContinuous 

.Weight = xlThick 

.Colorlndex = xlAutomatic 
End With 
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With Selection.Borders(xlEdgeLeft) 
.LineStyle = xlContinuous 
.Weight = xlThick 
.Colorlndex = xlAutomatic 

End With 

With Selection. Borders(xlEdgeRight) 
.LineStyle = xlContinuous 
.Weight - xlThick 
.Colorlndex = xlAutomatic 

End With 

End Function 
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Private Sub cmdCloseDailyTime_Click() 
ReportOption = 4 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 
End Sub 

Private Sub cmdCloseTimePrntRprt_Click() 
ReportOption = 1 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 
End Sub 

Private Sub cmdUpdtTmWORprt_Click() 
ReportOption = 2 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 
End Sub 

Private Sub cmdUpdtAndCloseAHTm_Click() 

ReportOption = 3 

TimeUpdtRptGnrt.Hide 

Unload TimeUpdtRptGnrt 

End Sub 

Private Sub cmdCancelForm_Click() 
ReportOption = 0 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 
End Sub 
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